<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
function CargarMunicipios(vID, vDEPTO, vDEPARTAMENTO){
	for (i=0;i<=vDEPARTAMENTO;i++){
		document.getElementById('celda'+i).style.backgroundColor='#FFFFFF';
	}
	window.open('FrameMunicipio.asp?qIdentificador='+vID+'&qDepartamento='+vDEPTO, 'frameMUNICIPIO');
}
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")

'// Recuperar los parametros WhereToGo y WhatToDo
WhereToGo = request.QueryString("WhereToGo")
if WhereToGo = "" then WhereToGo = 0
WhatToDo = request.QueryString("WhatToDo")
if WhatToDo = "" then WhatToDo = 0

qIdentificador = request.querystring("qIdentificador")
qDepartamento = request.querystring("qDepartamento")

'// Comando para Nuevo Registro
if WhatToDo = "cmdNew" then
    idDepto = request.QueryString("idDepto")
	if idDepto = "" then idDepto = 0
	WhereToGo = 1
end if

'// Comando para Guardar Nuevo Registro 
if WhatToDo = "cmdNewSave" then
    WhereToGo = 0
    var1 = Request.Form("var1")
	var1 = Replace(var1, "'", "´")
    var2 = Request.Form("var2")
	var2 = Replace(var2, "'", "´")
	dep = Request.Form("dep")
                
    sSQL = ""
    sSQL = sSQL & " INSERT INTO _Provincias (dep_id, prov_sigla, prov_provincia, prov_estado)"
    sSQL = sSQL & " VALUES ("& dep &", '"& var2 &"', '"& var1 &"', 1)"
    Resultado = ExecuteBD(sSQL, 1)
	Response.Redirect "FrameProvincia.asp?qIdentificador="& dep 
End If

'// Comando para Editar Registro
if WhatToDo = "cmdEdit" then
    qRegistro = request.QueryString("qRegistro")
    if qRegistro = "" then qRegistro = 0
    WhereToGo = 0
    sSQL = ""
    sSQL = sSQL & " SELECT prov_id, dep_id, prov_sigla, prov_provincia, prov_estado"
	sSQL = sSQL & " FROM _Provincias"
	sSQL = sSQL & " WHERE (prov_id = "& qRegistro &")"
    MatrizResultado = MatrixBD(sSQL, 1)
    If VarType(MatrizResultado) = 8  then
        CuantosRegistros = -1
    Else
        CuantosRegistros = UBound(MatrizResultado,2)	
    End If
    If CuantosRegistros <> -1 then
        var0 =  MatrizResultado(0,0)
        var1 =  MatrizResultado(1,0)
        var2 =  MatrizResultado(2,0)
        var3 =  MatrizResultado(3,0)
        var4 =  MatrizResultado(4,0)
        WhereToGo = 2
    End If
End If

'// Comando para Guardar Registro Editado 
If WhatToDo = "cmdEditSave" Then
	WhereToGo = 0
    var0 = Request.Form("var0")
    var1 = Request.Form("var1")
	var1 = Replace(var1, "'", "´")
    var2 = Request.Form("var2")
	var2 = Replace(var2, "'", "´")
    dep = Request.Form("dep")

    sSQL = ""
    sSQL = sSQL & " UPDATE _Provincias SET"
    sSQL = sSQL & " prov_sigla = '"& var2 &"',"
    sSQL = sSQL & " prov_provincia = '"& var1 &"'"
    sSQL = sSQL & " WHERE (prov_id = "& var0 &")"
    Resultado = ExecuteBD(sSQL, 1)
    Response.Redirect "FrameProvincia.asp?qIdentificador="& dep 
End If

'// Comando para Borrar Registro
if WhatToDo = "cmdDelete" then
    qRegistro = request.QueryString("qRegistro")
    if qRegistro = "" then qRegistro = 0
    WhereToGo = 3
    var0 = qRegistro
    sSQL = "SELECT prov_provincia FROM _Provincias WHERE (prov_id = "& qRegistro &")"
    var1 = RecordBD(sSQL, "prov_provincia", 1)
	
	sSQL = "SELECT dep_id FROM _Provincias WHERE (prov_id = "& qRegistro &")"
    var2 = RecordBD(sSQL, "dep_id", 1)
End If

'// Comando para Guardar Registro Borrado 
if WhatToDo = "cmdDeleteSave" then
    WhereToGo = 0
    var0 = request.Form("var0")
    var1 = request.Form("var1")
	var2 = request.Form("var2")
    sSQL = ""
    sSQL = sSQL & " DELETE FROM _Provincias"
    sSQL = sSQL & " WHERE (prov_id = "& var0 &")"
    Resultado = ExecuteBD(sSQL, 1)
	Response.Redirect "FrameProvincia.asp?qIdentificador="& var2 
End If

sSQL = ""
sSQL = sSQL & " SELECT prov_id, prov_provincia"
sSQL = sSQL & " FROM _Provincias"
sSQL = sSQL & " WHERE (prov_estado = 1) AND (dep_id = "& qIdentificador &")"
MatrizPROV = MatrixBD(sSQL, 1)
If VarType(MatrizPROV) = 8  then
	RegPROV = -1
Else
	RegPROV = UBound(MatrizPROV,2)	
End If
%>

<!-- Pagina de inicio -->
<% if WhereToGo = 0 then %>       
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse:collapse;" bgcolor="#FFFFFF">
  <tr bgcolor="#CCCCCC">
    <td align="center" width="20"><a href="FrameProvincia.asp?WhatToDo=cmdNew&idDepto=<%=qIdentificador%>"><img src="Iconos/page_add.png" width="16" height="16" border="0" alt="Nuevo" title="Nuevo"></a></td>
    <td align="center" width="20" title="Editar"><em>E</em></td>
    <td align="center" width="20" title="Borrar"><em>B</em></td>
    <td align="center" width="100%"><em>Distritos</em></td>
  </tr>
  <% For pro = 0 To RegPROV %>
  <tr id="celda<%=pro%>">
    <td align="center"><input name="imagen" type="image" onClick="CargarMunicipios(<%=MatrizPROV(0,pro)%>, <%=qIdentificador%>, <%=RegPROV%>); document.getElementById('celda<%=pro%>').style.backgroundColor='#FEE363';" src="Iconos/bullet_go.png"></td>
    <td align="center"><a href="FrameProvincia.asp?WhatToDo=cmdEdit&qRegistro=<%=MatrizPROV(0,pro)%>"><img src="Iconos/page_edit.png" width="16" height="16" border="0" alt="Editar" title="Editar"></a></td>
    <td align="center"><a href="FrameProvincia.asp?WhatToDo=cmdDelete&qRegistro=<%=MatrizPROV(0,pro)%>"><img src="Iconos/page_delete.png" width="16" height="16" border="0" alt="Borrar" title="Borrar"></a></td>
    <td align="left"><%=MatrizPROV(1,pro)%></td>
  </tr>
  <% Next %>
</table>
<% end if %>

<!-- Nuevo Registro -->
<% if WhereToGo = 1 then %>
<form action="FrameProvincia.asp?WhatToDo=cmdNewSave" method="post" name="frmNew">
<input name="dep" type="hidden" value="<%=idDepto%>">
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse:collapse;" bgcolor="#FFFFFF">
  <tr>
    <td align="left" width="50%" bgcolor="#CCCCCC">Distrito</td>
    <td align="center" width="50%"><textarea name="var1" rows="4" class="TextoTam2"></textarea></td>
    <tr>
    <td align="left" width="50%" bgcolor="#CCCCCC">Sigla</td>
    <td align="center" width="50%"><input name="var2" type="text" class="TextoTam2" value="0"></td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="submit" class="BotonPeq">&nbsp;<input name="Cancelar" value="   Cancelar   " type="button" class="BotonPeq" onClick="javascript:window.location.href='FrameProvincia.asp?qIdentificador=<%=idDepto%>'"></td>
  </tr>
</table>
</form>
<% end if %>

<!-- Editar Registro -->
<% if WhereToGo = 2 then %>
<form action="FrameProvincia.asp?WhatToDo=cmdEditSave" method="post" name="frmEdit">
<input name="dep" type="hidden" value="<%=var1%>">
<input name="var0" type="hidden" value="<%=var0%>">
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse:collapse;" bgcolor="#FFFFFF">
  <tr>
    <td align="left" width="50%" bgcolor="#CCCCCC">Distrito</td>
    <td align="center" width="50%"><textarea name="var1" rows="4" class="TextoTam2"><%=var3%></textarea></td>
    <tr>
    <td align="left" width="50%" bgcolor="#CCCCCC">Sigla</td>
    <td align="center" width="50%"><input name="var2" type="text" class="TextoTam2" value="<%=var2%>"></td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="submit" class="BotonPeq">&nbsp;<input name="Cancelar" value="   Cancelar   " type="button" class="BotonPeq" onClick="javascript:window.location.href='FrameProvincia.asp?qIdentificador=<%=var1%>'"></td>
  </tr>
</table>
</form>
<% end if %>

<!-- Borrar Registro -->
<% if WhereToGo = 3 then %>
<form action="FrameProvincia.asp?WhatToDo=cmdDeleteSave" method="post" name="frmDelete">
<input type="hidden" name="var0" value="<%=var0%>">
<input type="hidden" name="var2" value="<%=var2%>">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td width="50%" bgcolor="#CCCCCC">Esta seguro de borrar ?</td>
    <td width="50%"><textarea name="var1" rows="4" readonly="readonly" class="TextoTam2"><%=var1%></textarea></td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="submit" class="BotonPeq">&nbsp;<input name="Cancelar" value="   Cancelar   " type="button" class="BotonPeq" onClick="javascript:window.location.href='FrameProvincia.asp?qIdentificador=<%=var2%>'"></td>
  </tr>
</table>
</form>
<% end if %>